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(54) PROGRAM CHECKING METHOD 

(57)Abstract: 

PURPOSE: To remarkably reduce quantity to be 
described additionally in a source program by inserting 
the processing of user procedure by which a routine or 
function of user definition is called into another routine 
or the just before position or immediately behind position 
of the function. 

CONSTITUTION: A user who desires to obtain 
information with respect to each routine or function 
inserts and defines only a specific routine or function 
(the routine or function of user definition) into the 
source program (100). When the routine or function of 
user definition is described, the processing of user 
procedure is inserted into another routine or the just ••..<*,;; 
before position or immediately behind position of the / 
function (102). In such a way, the routine or function of 
\user definition is called by the processing of user •.'•>•: 
. ■procedure, therefore, the user can confirm the 
information with respect to a sub-routine or function 
without describing processing for program check at 
every sub-routine or function. 
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<C3ShrlTO©«OT*M*r*-*tt> 
«In(){ 



char na«[5]; 

printfCPrograi start¥n"); 
else lf(*f=l) 

printfCEnd prosraAi"); 
else if(*f=2){ 

printfCProc star*"); 

for(k=0;k<4;kw) 

s[k>*GmO; 

■QKW: 

printfCniiiie=fe¥n'\s); 

else it(*f=3){ 

printfCProc enaW); 
for(k=0;k*4;k++) 

sftJ*G»*>; 

s(k}='¥0'; 

printf("naie= Xs¥n".s>; 
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<FORTRANWf^-^®«»*WOT«0i> 

PROGRAM TEST 
INTEGER I 

CALL SUB(I) 

END 

SUBROUTINE SUB(I) 
INTEGER I 

END 

SUBROUTINE USER_DEF1NED_PR0C(F,N,L) 



1F(F.EQ.0> THEN 

1SITE(*,*)' PROGRAM START' 
ELSEIF(F.BQ.l) THEN 

IWTB(*.*) , P80CBMI END' 
ELSE1F(F.EQ.Z) THEN 

»RITE(*.*)'P80C START:', RAKE,'SSN:',L 
ELSE1F(F.EQ,3) THEN 

BtITE(*.*)'PROC END:',lttHE.'SS»:'L 
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